#!/usr/bin/perl -w

# t2h
# File ID: 099f1bbc-5d46-11df-bb8a-90e6ba3022ac

use strict;

while (<>) {
	s/&/&amp;/g;
	s/</&lt;/g;
	s/>/&gt;/g;
	print;
}
